* lisp/help.el (help-function-arglist): Don't `substitute-command-keys`

diff --git a/lisp/help.el b/lisp/help.el
index bafe6032942ef75e712de611f4e800ab318142a7..1ef46e394f36258d4a4c0f0edcf7f640f8c16da1 100644 (file)
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -2353,7 +2353,7 @@ the same names as used in the original source code, when possible."
    ((or (and (byte-code-function-p def) (integerp (aref def 0)))
         (subrp def) (module-function-p def))
     (or (when preserve-names
-          (let* ((doc (condition-case nil (documentation def) (error nil)))
+          (let* ((doc (condition-case nil (documentation def 'raw) (error nil)))
                  (docargs (if doc (car (help-split-fundoc doc nil))))
                  (arglist (if docargs
                               (cdar (read-from-string (downcase docargs)))))